home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue37 / outlook / mapi / mapiwz.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-06-19  |  2.1 KB  |  94 lines
  1. {++
  2.  
  3.   m a p i w z . p a s
  4.  
  5.   Abstract:
  6.  
  7.     Automatic conversion of mapiwz.h.
  8.  
  9.   Comments:
  10.  
  11.     This source file automatically converted by
  12.     htrans 0.91 beta 1 Copyright (c) 1997 Alexander Staubo
  13.  
  14.   Revision history:
  15.  
  16.     18-06-1997 20:53 alex  [Autogenerated]
  17.     18-06-1997 20:53 alex  Retouched for release
  18.  
  19. --}
  20.  
  21. unit MapiWz;
  22.  
  23. {$A+}
  24. {$MINENUMSIZE 4}
  25.  
  26. interface
  27.  
  28. uses
  29.   Windows, SysUtils, ActiveX, Messages,
  30.   MapiDefs;
  31.  
  32. (*
  33.  *  M A P I W Z . H
  34.  *
  35.  *  Definitions for the Profile Wizard.  Includes all prototypes
  36.  *  and constants required by the provider-wizard code consumers.
  37.  *
  38.  *  Copyright 1986-1996 Microsoft Corporation. All Rights Reserved.
  39.  *)
  40.  
  41. const
  42.   WIZ_QUERYNUMPAGES = (WM_USER + 10);
  43.   WIZ_NEXT = (WM_USER + 11);
  44.   WIZ_PREV = (WM_USER + 12);
  45.  
  46. (*
  47.  *  NOTE: Provider-Wizards should not use ids ranging between
  48.  *  (WM_USER + 1) and (WM_USER +20) as these have been reserved for 
  49.  *  future releases.
  50.  *)
  51.  
  52. {  Flags for LaunchWizard API }
  53.  
  54. const
  55.   MAPI_PW_FIRST_PROFILE = $00000001;
  56.   MAPI_PW_LAUNCHED_BY_CONFIG = $00000002;
  57.   MAPI_PW_ADD_SERVICE_ONLY = $00000004;
  58.   MAPI_PW_PROVIDER_UI_ONLY = $00000008;
  59.   MAPI_PW_HIDE_SERVICES_LIST = $00000010;
  60.  
  61. (*
  62.  *  Provider should set this property to TRUE if it does not
  63.  *  want the Profile Wizard to display the PST setup page.
  64.  *)
  65.  
  66. const
  67.   PR_WIZARD_NO_PST_PAGE = (PT_BOOLEAN) or (($6700) shl 16);
  68.  
  69. type
  70.   TLAUNCHWIZARDENTRY = function (hParentWnd : HWND; ulFlags : ULONG;
  71.     var lppszServiceNameToAdd : PChar; cbBufferMax : ULONG;
  72.     lpszNewProfileName : PChar) : HResult; stdcall;
  73.  
  74.   PLAUNCHWIZARDENTRY = ^TLAUNCHWIZARDENTRY;
  75.  
  76.   TSERVICEWIZARDDLGPROC = function (hDlg : HWND; wMsgID : UINT; wParam : WPARAM;
  77.     lParam : LPARAM) : BOOL; stdcall;
  78.  
  79.   PSERVICEWIZARDDLGPROC = ^TSERVICEWIZARDDLGPROC;
  80.  
  81.   TWIZARDENTRY = function (hProviderDLLInstance : HINST;
  82.     var lppcsResourceName : PChar; var lppDlgProc : TFNDlgProc;
  83.     lpMapiProp : IMapiProp; lpMapiSupportObject : Pointer) : ULONG; stdcall;
  84.  
  85.   PWIZARDENTRY = ^TWIZARDENTRY;
  86.  
  87. const
  88.   LAUNCHWIZARDENTRYNAME = 'LAUNCHWIZARD';
  89.  
  90. implementation
  91.  
  92. end.
  93.  
  94.